Public Shared Function ConvertImageToString(ByVal Picture As Image) As String
        If Picture Is Nothing Then Return Nothing
        Dim ReturnString As String = Nothing
        Using MS As New IO.MemoryStream
            Picture.Save(MS, Imaging.ImageFormat.Jpeg)
            MS.Flush()
            MS.Position = 0
            Dim buffer = MS.ToArray
            ReturnString = Convert.ToBase64String(buffer)
        End Using
        Return ReturnString
    End Function

    Public Shared Function ConvertStringToImage(ByVal ImageEncodedString As String) As Image
        If String.IsNullOrEmpty(ImageEncodedString) Then Return Nothing
        Dim Img As Image = Nothing
        Dim Buffer() As Byte = Convert.FromBase64String(ImageEncodedString)
        Using MS As New IO.MemoryStream
            MS.Position = 0
            MS.Write(Buffer, 0, Buffer.Length - 1)
            Img = Image.FromStream(MS)
        End Using
        Return Img
    End Function